home *** CD-ROM | disk | FTP | other *** search
/ Larry Magid's Essential Internet / Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO / qsockpro.qip / TERRPORT.MPS < prev    next >
Text File  |  1995-10-09  |  979b  |  52 lines
  1. # TerraPort Online login script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 9-13-95 CEL
  4.  
  5. STRING username
  6. STRING password
  7. STRING framing
  8. STRING IPAddress
  9.  
  10. # Uncomment for debugging
  11. # trace on
  12.  
  13. SetTimeOut  60
  14.  
  15. CfgGetValue "Username" username
  16.  
  17. IF result = 0 THEN
  18.     GetInput "Enter your username:"  username
  19.     IF result = 0 THEN
  20.         PRINT "Warning, no username entered."
  21.     ELSE
  22.         PRINT "Username set to: ";username
  23.     ENDIF
  24. ENDIF
  25.     
  26. CfgGetValue "Password" password
  27. IF result = 0 THEN
  28.     GetPassword "Enter your password:" password
  29.     IF result = 0 THEN
  30.         PRINT "Warning, no password entered."
  31.     ELSE
  32.         PRINT "Password set."
  33.     ENDIF
  34. ENDIF
  35.     
  36. CfgGetValue "Framing" framing
  37. IF result = 0 THEN
  38.     ABORT "Can't read 'Framing' setting from QDECK.INI."
  39. ENDIF 
  40.  
  41. CommWaitFor     "login:"  
  42.  
  43. CommSend    "p"
  44. CommSend        username
  45. CommSend        "%r"
  46.     
  47. CommWaitFor     "password:"
  48. CommSend        password
  49. CommSend        "%r"
  50.     
  51. END
  52.